SelectFeature.asp 云网互动影视系统(12套模版和资源联盟) 6.2 - ASP源码程序

www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Dialog/SelectFeature.asp

    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>选择专题栏目</title>
<style>
.LableSelectItem {
	background-color:highlight;
	cursor: hand;
	color: white;
	text-decoration: none;
}
.LableItem {
	cursor: hand;
}
.SubItem {
	margin-left:15px;
}
.RootItem {
	margin-left:15px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	line-height:120%;
	font-size: 12px;
}
</style>
</head>
<script language="JavaScript">
<!--
var SelectClass="";
function SelectLable(Obj)
{
	Obj.className='LableSelectItem';
	SelectClass=Obj.id+"***"+Obj.innerText;
}

function SubmitLable(Obj)
{
	SelectLable(Obj);
	window.returnValue=SelectClass;
	window.close();
}

window.onunload=SetReturnValue;
function SetReturnValue()
{
	if (typeof(window.returnValue)!='string') window.returnValue='';
}
//-->
</script>
<body ondragstart="return false;" onselectstart="return false;">
<div id="Parent0" class="RootItem">
<!--#include file="../../Conn.asp" -->
<!--#include file="../YWNT_TMS_inc/YWNT_TMS_Function.asp" -->
<%Dim Conn
Dim ParentId,Str_Sql,Rs_Class,Str_ClassInfo,Lines
Str_Sql = "Select ID,FeatureName from YWNT_TMS_FeatureClass order by FeatureWith asc,id asc"
Set Rs = Conn.Execute(Str_Sql)
Str_ClassInfo=""
While Not Rs.Eof
		Str_ClassInfo=Str_ClassInfo&"<div><img src=""../images/+.gif"" width=""15"" height=""15"" border=""0"" class=""LableItem"" /><span id="""&Rs("ID")&""" onDblClick=""SubmitLable(this);"" class=""LableItem"" onClick=""SelectLable(this)"">"&Rs("FeatureName")&"</span>"&VbNewLine&_
		"</div>"&VbNewLine
Rs.MoveNext
Wend
Response.Write(Str_ClassInfo)
%></div>
</body>
</html>